#Biomassa de rvores
d <- 15
d
biomassa1 <- (exp(1)^-1.7953*d^2.2974)
biomassa1
h <- 12
h
b <- -2.6464 + 1.9960*log(d)+ 0.7558*log(h)
biomassa2 <- exp(b)

#Sequencias
letra.a <- rep("a", 6)
letra.a
numeros <- rep(c(1,2,3), each=3)
numeros
decrescente <- c(1,1,1,2,2,3)
decrescente
sequencia <- c(1:5,4:1)
sequencia
impares <- seq(from=1, to=99, length = 50)
impares

#Conta de luz
luz <- c(9839, 10149, 10486, 10746, 11264, 11684, 12082, 12599, 13004, 13350, 13717,14052)
luz.dif <- diff(luz)
luz.cons <- luz.dif
luz.cons
luz.m <- mean(luz.cons)
luz.md <- median(luz.cons)
luz.v <- var(luz.cons)
luz.range <- range(luz.cons)

#rea basal
arvore1 <- (base::pi * 13.5^2)/4
arvore1
arvore.a <- (base::pi * 7^2)/4
arvore.b <- (base::pi * 9^2)/4
arvore.c <- (base::pi * 12^2)/4
arvore2 <- sum(arvore.a + arvore.b + arvore.c)
arvore2

#Variancia na unha
pesos <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
pesos.m <- mean(pesos)
pesos.d2 <- (pesos - pesos.m)^2
pesos.d2s <- sum(pesos.d2)
pesos.v <- pesos.d2s/(length(pesos)-1)
pesos.ds <- sqrt(sum(pesos.d2))
pesos.s <- pesos.ds/sqrt(length(pesos)-1)

#Teste t
teste.t <- pt(q=-2.2, df=19, lower.tail = TRUE, log.p = FALSE)*2
teste.t
limite <- qt(p=0.025, df=19, lower.tail = FALSE, log.p = FALSE)
limite


